home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / NEW-FONT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  9.6 KB  |  147 lines
  1. 10  SCREEN 1 : KEY OFF : CLS
  2. 11  CLEAR ,20000,1000
  3. 12  DEF SEG = 0 : POKE &H7D,&HBC             ' BUFFER STARTS AT 47K
  4. 13  FOR X = &HBC00 TO &HBFFF                 ' 47K TO 48K (1K OF DATA)
  5. 14  READ A : POKE X,A
  6. 15  NEXT
  7. 16  '*****************************************************************
  8. 17  '**       NEW FONT       **  LOADS A MODERNISTIC FONT INTO      **
  9. 18  '**                      **  THE LAST 1024 BYTES OF MEMORY      **
  10. 19  '**      VERSION 1.1     **  (IN THIS CASE - 48K)               **
  11. 20  '**                      **  IT THEN POINTS THE FONT DATA       **
  12. 21  '**      JUNE 6,1982     **  POINTER AT THE START OF THE TABLE  **
  13. 22  '*****************************************************************
  14. 23  '
  15. 24  '
  16. 100  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 00 NULL
  17. 101  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 01
  18. 102  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 02
  19. 103  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 03
  20. 104  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 04
  21. 105  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 05
  22. 106  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 06
  23. 107  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 07 BEEP
  24. 108  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 08 BACKSP
  25. 109  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 09 TAB
  26. 110  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 10 LINEFEED
  27. 111  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 11 HOME
  28. 112  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 12 FORMFEED
  29. 113  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 13 CR
  30. 114  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 14
  31. 115  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 15
  32. 116  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 16
  33. 117  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 17
  34. 118  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 18
  35. 119  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 19
  36. 120  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 20
  37. 121  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 21
  38. 122  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 22
  39. 123  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 23
  40. 124  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 24
  41. 125  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 25
  42. 126  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 26
  43. 127  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 27
  44. 128  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 28
  45. 129  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 29
  46. 130  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 30
  47. 131  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 31
  48. 132  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H000 :' 32 SPACE
  49. 133  DATA &H010, &H038, &H038, &H010, &H010, &H000, &H010, &H000 :' 33 !
  50. 134  DATA &H024, &H024, &H024, &H000, &H000, &H000, &H000, &H000 :' 34 "
  51. 135  DATA &H000, &H024, &H07E, &H024, &H024, &H07E, &H024, &H000 :' 35 #
  52. 136  DATA &H028, &H07C, &H080, &H07C, &H002, &H0FC, &H028, &H000 :' 36 $
  53. 137  DATA &H000, &H084, &H008, &H010, &H020, &H040, &H084, &H000 :' 37 %
  54. 138  DATA &H038, &H044, &H038, &H072, &H08C, &H08C, &H072, &H000 :' 38 &
  55. 139  DATA &H020, &H020, &H040, &H000, &H000, &H000, &H000, &H000 :' 39 '
  56. 140  DATA &H010, &H020, &H040, &H040, &H040, &H020, &H010, &H000 :' 40 (
  57. 141  DATA &H020, &H010, &H008, &H008, &H008, &H010, &H020, &H000 :' 41 )
  58. 142  DATA &H000, &H054, &H038, &H07C, &H038, &H054, &H000, &H000 :' 42 *
  59. 143  DATA &H000, &H010, &H010, &H07C, &H010, &H010, &H000, &H000 :' 43 +
  60. 144  DATA &H000, &H000, &H000, &H000, &H000, &H010, &H010, &H020 :' 44 ,
  61. 145  DATA &H000, &H000, &H000, &H0FC, &H000, &H000, &H000, &H000 :' 45 -
  62. 146  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H010, &H000 :' 46 .
  63. 147  DATA &H002, &H004, &H008, &H010, &H020, &H040, &H080, &H000 :' 47 /
  64. 148  DATA &H0FE, &H082, &H082, &H086, &H086, &H086, &H0FE, &H000 :' 48 0
  65. 149  DATA &H008, &H008, &H008, &H018, &H018, &H018, &H018, &H000 :' 49 1
  66. 150  DATA &H0FE, &H082, &H002, &H0FE, &H0C0, &H0C2, &H0FE, &H000 :' 50 2
  67. 151  DATA &H0FC, &H084, &H004, &H03E, &H006, &H086, &H0FE, &H000 :' 51 3
  68. 152  DATA &H084, &H084, &H084, &H0FE, &H00C, &H00C, &H00C, &H000 :' 52 4
  69. 153  DATA &H0FE, &H080, &H080, &H0FE, &H006, &H006, &H0FE, &H000 :' 53 5
  70. 154  DATA &H0FE, &H082, &H080, &H0FE, &H0C2, &H0C2, &H0FE, &H000 :' 54 6
  71. 155  DATA &H0FE, &H002, &H002, &H002, &H006, &H006, &H006, &H000 :' 55 7
  72. 156  DATA &H07C, &H044, &H044, &H0FE, &H086, &H086, &H0FE, &H000 :' 56 8
  73. 157  DATA &H0FE, &H082, &H082, &H0FE, &H006, &H006, &H006, &H000 :' 57 9
  74. 158  DATA &H000, &H010, &H010, &H000, &H010, &H010, &H000, &H000 :' 58 :
  75. 159  DATA &H000, &H010, &H010, &H000, &H010, &H010, &H020, &H000 :' 59 ;
  76. 160  DATA &H008, &H010, &H020, &H040, &H020, &H010, &H008, &H000 :' 60 <
  77. 161  DATA &H000, &H000, &H0FC, &H000, &H000, &H0FC, &H000, &H000 :' 61 =
  78. 162  DATA &H020, &H010, &H008, &H004, &H008, &H010, &H020, &H000 :' 62 >
  79. 163  DATA &H038, &H044, &H004, &H008, &H010, &H000, &H010, &H000 :' 63 ?
  80. 164  DATA &H03C, &H042, &H0BA, &H0AA, &H0BC, &H040, &H03C, &H000 :' 64 @
  81. 165  DATA &H07C, &H044, &H044, &H0FE, &H0C2, &H0C2, &H0C2, &H000 :' 65 A
  82. 166  DATA &H0FC, &H084, &H084, &H0FE, &H0C2, &H0C2, &H0FE, &H000 :' 66 B
  83. 167  DATA &H0FE, &H082, &H080, &H0C0, &H0C0, &H0C2, &H0FE, &H000 :' 67 C
  84. 168  DATA &H0FE, &H082, &H082, &H0C2, &H0C2, &H0C2, &H0FE, &H000 :' 68 D
  85. 169  DATA &H0FE, &H080, &H080, &H0FE, &H0C0, &H0C0, &H0FE, &H000 :' 69 E
  86. 170  DATA &H0FE, &H080, &H080, &H0FE, &H0C0, &H0C0, &H0C0, &H000 :' 70 F
  87. 171  DATA &H0FE, &H082, &H080, &H0CE, &H0C2, &H0C2, &H0FE, &H000 :' 71 G
  88. 172  DATA &H082, &H082, &H082, &H0FE, &H0C2, &H0C2, &H0C2, &H000 :' 72 H
  89. 173  DATA &H010, &H010, &H010, &H018, &H018, &H018, &H018, &H000 :' 73 I
  90. 174  DATA &H004, &H004, &H004, &H006, &H006, &H086, &H0FE, &H000 :' 74 J
  91. 175  DATA &H084, &H084, &H084, &H0FE, &H0C2, &H0C2, &H0C2, &H000 :' 75 K
  92. 176  DATA &H080, &H080, &H080, &H0C0, &H0C0, &H0C0, &H0FE, &H000 :' 76 L
  93. 177  DATA &H0FE, &H092, &H092, &H0D2, &H0D2, &H0D2, &H0D2, &H000 :' 77 M
  94. 178  DATA &H0FE, &H082, &H082, &H0C2, &H0C2, &H0C2, &H0C2, &H000 :' 78 N
  95. 179  DATA &H0FE, &H082, &H082, &H0C2, &H0C2, &H0C2, &H0FE, &H000 :' 79 O
  96. 180  DATA &H0FE, &H082, &H082, &H0FE, &H0C0, &H0C0, &H0C0, &H000 :' 80 P
  97. 181  DATA &H0FE, &H082, &H082, &H082, &H082, &H09E, &H0FE, &H000 :' 81 Q
  98. 182  DATA &H0FC, &H084, &H084, &H0FE, &H0C2, &H0C2, &H0C2, &H000 :' 82 R
  99. 183  DATA &H0FE, &H082, &H080, &H0FE, &H002, &H082, &H0FE, &H000 :' 83 S
  100. 184  DATA &H0FE, &H010, &H010, &H018, &H018, &H018, &H018, &H000 :' 84 T
  101. 185  DATA &H082, &H082, &H082, &H0C2, &H0C2, &H0C2, &H0FE, &H000 :' 85 U
  102. 186  DATA &H0C2, &H0C2, &H0C2, &H0C6, &H044, &H044, &H07C, &H000 :' 86 V
  103. 187  DATA &H092, &H092, &H092, &H0D2, &H0D2, &H0D2, &H0FE, &H000 :' 87 W
  104. 188  DATA &H082, &H082, &H082, &H07C, &H0C2, &H0C2, &H0C2, &H000 :' 88 X
  105. 189  DATA &H082, &H082, &H082, &H0FE, &H018, &H018, &H018, &H000 :' 89 Y
  106. 190  DATA &H0FE, &H082, &H002, &H07C, &H0C0, &H0C2, &H0FE, &H000 :' 90 Z
  107. 191  DATA &H038, &H020, &H020, &H020, &H020, &H020, &H038, &H000 :' 91 [
  108. 192  DATA &H080, &H040, &H020, &H010, &H008, &H004, &H002, &H000 :' 92 \
  109. 193  DATA &H038, &H008, &H008, &H008, &H008, &H008, &H038, &H000 :' 93 ]
  110. 194  DATA &H010, &H028, &H044, &H000, &H000, &H000, &H000, &H000 :' 94 ^
  111. 195  DATA &H000, &H000, &H000, &H000, &H000, &H000, &H000, &H0FF :' 95 _
  112. 196  DATA &H010, &H010, &H008, &H000, &H000, &H000, &H000, &H000 :' 96 '
  113. 197  DATA &H000, &H000, &H03E, &H002, &H03E, &H032, &H03E, &H000 :' 97 a
  114. 198  DATA &H000, &H020, &H020, &H03E, &H032, &H032, &H03E, &H000 :' 98 b
  115. 199  DATA &H000, &H000, &H000, &H03E, &H030, &H030, &H03E, &H000 :' 99 c
  116. 200  DATA &H000, &H002, &H002, &H03E, &H032, &H032, &H03E, &H000 :'100 d
  117. 201  DATA &H000, &H000, &H03E, &H022, &H03E, &H030, &H03E, &H000 :'101 e
  118. 202  DATA &H000, &H01E, &H010, &H07E, &H018, &H018, &H018, &H000 :'102 f
  119. 203  DATA &H000, &H000, &H03E, &H032, &H032, &H03E, &H002, &H03E :'103 g
  120. 204  DATA &H000, &H020, &H020, &H03E, &H032, &H032, &H032, &H000 :'104 h
  121. 205  DATA &H000, &H010, &H000, &H010, &H018, &H018, &H018, &H000 :'105 i
  122. 206  DATA &H000, &H004, &H000, &H004, &H006, &H006, &H002, &H03E :'106 j
  123. 207  DATA &H000, &H020, &H024, &H038, &H036, &H032, &H032, &H000 :'107 k
  124. 208  DATA &H000, &H010, &H010, &H018, &H018, &H018, &H018, &H000 :'108 l
  125. 209  DATA &H000, &H000, &H000, &H07E, &H06A, &H06A, &H06A, &H000 :'109 m
  126. 210  DATA &H000, &H000, &H000, &H03E, &H032, &H032, &H032, &H000 :'110 n
  127. 211  DATA &H000, &H000, &H000, &H03E, &H032, &H032, &H03E, &H000 :'111 o
  128. 212  DATA &H000, &H000, &H000, &H03E, &H032, &H032, &H03E, &H020 :'112 p
  129. 213  DATA &H000, &H000, &H000, &H03E, &H032, &H032, &H03E, &H002 :'113 q
  130. 214  DATA &H000, &H000, &H000, &H03E, &H030, &H030, &H030, &H000 :'114 r
  131. 215  DATA &H000, &H000, &H03E, &H020, &H03E, &H006, &H03E, &H000 :'115 s
  132. 216  DATA &H000, &H010, &H010, &H07E, &H018, &H018, &H018, &H000 :'116 t
  133. 217  DATA &H000, &H000, &H000, &H032, &H032, &H032, &H03E, &H000 :'117 u
  134. 218  DATA &H000, &H000, &H000, &H032, &H036, &H034, &H03C, &H000 :'118 v
  135. 219  DATA &H000, &H000, &H000, &H06A, &H06A, &H06A, &H07E, &H000 :'119 w
  136. 220  DATA &H000, &H000, &H022, &H022, &H01C, &H032, &H032, &H000 :'120 x
  137. 221  DATA &H000, &H000, &H000, &H032, &H032, &H03E, &H002, &H03E :'121 y
  138. 222  DATA &H000, &H000, &H03E, &H002, &H01C, &H020, &H03E, &H000 :'122 z
  139. 223  DATA &H00C, &H010, &H010, &H060, &H010, &H010, &H00C, &H000 :'123 {
  140. 224  DATA &H008, &H008, &H008, &H000, &H008, &H008, &H008, &H000 :'124 |
  141. 225  DATA &H060, &H010, &H010, &H00C, &H010, &H010, &H060, &H000 :'125 }
  142. 226  DATA &H000, &H078, &H024, &H038, &H0A4, &H0A4, &H058, &H000 :'126 ~
  143. 227  DATA &H000, &H078, &H024, &H038, &H0A4, &H0A4, &H058, &H000 :'127
  144. 950  PRINT :PRINT :PRINT :PRINT
  145. 1000  FOR X = 128 TO 255 : PRINT CHR$(X);" ";:NEXT
  146. 1010  INPUT A$:CLS:WIDTH 80
  147.